home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / internet / irc_i_dodatki / phoenix / bin / rexx / map.amirx < prev    next >
Text File  |  1996-10-11  |  228b  |  12 lines
  1. /**/
  2. options results
  3. call open(f1,'ram:master.map','w')
  4. done=0
  5. 'say /raw map'
  6. do until done=1
  7.     getline
  8.     if line.command='005' then writeln(f1,substr(line.rest,2))
  9.     else if line.command='007' then done=1
  10. end
  11. call close(f1); exit
  12.